﻿Imports ControladorasAT.SIREOS
Imports ServiciosAT
Imports Utilitarios

Partial Class Pages_NuevaContrasena
    Inherits System.Web.UI.Page

    Private Function validarCampos() As Boolean
        If txbContrasenaAnterior.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.ingresarPassword
            Return False
        ElseIf txbNuevoPwd1.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.ingresarNuevoPassword
            Return False
        ElseIf txbNuevoPwd2.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.confirmarNuevoPassword
            Return False
        ElseIf txbNuevoPwd1.Text <> txbNuevoPwd2.Text Then
            Valores.mensajevar = Mensajes.noCoincideContrasenas
            Return False
        Else
            Return True
        End If
    End Function

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            LblUsuario.Text = Session("AliasUsuario")
            LblCodigoUsuario.Text = Session("CodigoUsuario")
        End If
    End Sub

    Protected Sub ibtnGrabar_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnGrabar.Click
        If validarCampos() = True Then
            Dim oUsuarioBE As New SireosWSSeguridad.Usuario
            oUsuarioBE.nomUsuario = LblUsuario.Text
            oUsuarioBE.codUsuario = LblCodigoUsuario.Text
            oUsuarioBE.pwdUsuario = Helper.Encripta(txbContrasenaAnterior.Text)

            Dim oCtSeguridad As New CtSeguridad
            Dim ret As Integer = oCtSeguridad.validarUsuario(oUsuarioBE)
            If ret > 0 Then
                oUsuarioBE.pwdUsuario = Helper.Encripta(txbNuevoPwd1.Text)

                If Not (oCtSeguridad.cambiarContrasena(oUsuarioBE) Is Nothing) Then
                    Helper.MensajeAlerta(Me, Mensajes.correctoModificado)
                Else
                    Helper.MensajeAlerta(Me, Mensajes.errorModificar)
                End If

            Else
                Helper.MensajeAlerta(Me, Mensajes.errorContrasena)
            End If
        Else
            Helper.MensajeAlerta(Me, Valores.mensajevar)
        End If
    End Sub

End Class
